'CLEAR,,1024,2048,1024
RANDOMIZE TIME
R=.75!
A$=GETS$("HP",1)
A=VAL(A$)
L$=GETS$("L",1)
L=VAL(L$)
B$=GETS$("怪物",1)
B=VAL(A$)
CLRF "MES"
IF RND(R)<.3! THEN GOTO *DEFENCE ELSE GOTO *OFFENCE
*DEFENCE
X=INT(RND(R)*20)
MES$="怪獣が あなたに"+STR$(X)+"の 攻撃を与えた!"
PUTS "MES",MES$,0
A=A-X
PUTS "HP",STR$(A),0
PUTS "HP",STR$(A),0
END
*OFFENCE
X=INT(RND(R)*20)*L
MES$="あなたが 怪獣に"+STR$(X)+"の 攻撃を与えた!"
PUTS "MES",MES$,0
B=B-X
PUTS "怪物",STR$(B),0
END